home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_2 / twview93.zip / HEADERS.INC < prev    next >
Text File  |  1992-06-07  |  2KB  |  83 lines
  1. const
  2. { general constants }
  3.   error      = maxint;
  4.   author     = 'Copyright 1991, 1992 by Robert Weaver.  All Rights Reserved.';
  5.   source     = 'For latest versions, call 510-376-1554';
  6.   version    = 'version 0.92 (dos)';
  7.   FileNotFound =   2;
  8.   abort      = 'abort';
  9. { universe dimensions }
  10.   maxSector  = 1000;
  11.   maxWarps   = 6;
  12.   maxPorts   = 420;
  13.   maxNote    = 400;
  14.   NoteSize   = 40;
  15. { sector (warp number) flag }
  16.   UnExplored = 0;
  17. { stuff flags }
  18.   NotAPort   = -1;
  19.   Class0     = 8;
  20. { etc flags }
  21.   NoteExists = 1;
  22.   IsPort     = 2;
  23.   HasFighters= 4;
  24.   SpaceLane  = 8;
  25.   Avoid      = 16;
  26.   Stardock   = 128;
  27.   Nothing    = 0;
  28.  
  29. type
  30.   str3 = string[ 3 ];
  31.   sector     = 1..maxSector;
  32.   dist = record
  33.            d : integer;
  34.            s : sector;
  35.          end;
  36.   distanceArray = array [ sector ] of dist;
  37.   sectorscanner = array [ sector ] of boolean;
  38.   warpindex  = 0..maxWarps;
  39.   stuff      = -1..8;      { 8 = class 0; xxx (binary) Equip, Org, Fuel }
  40.                            {-1 = not a port   1 = sell, 0 = buy         }
  41.   SectorIndex  = 0..maxSector;
  42.   SectorInfo = record
  43.                  number   : 0..maxWarps;
  44.                  data     : array [ 1..maxwarps ] of sector;
  45.                  porttype : stuff;
  46.                  etc      : integer;
  47.                end;
  48.  
  49.   note = record
  50.            reference : sector;
  51.            info      : string [ NoteSize ];
  52.          end;
  53.   NoteIndex = 0..MaxNote;
  54.   NoteList = record
  55.                top  : NoteIndex;
  56.                data : array [1..MaxNote] of note;
  57.              end;
  58.  
  59.   goods = ( Fuel, Organics, Equipment );
  60.   GoodsArray = array [ goods ] of integer;   { + = selling; - = buying }
  61.   percent = 0..100;
  62.   PercentArray = array [ goods ] of percent;
  63.   portSales = record
  64.                 where : sector;
  65.                 amts  : goodsArray;
  66.                 usage : percentArray;
  67.                 change: goodsArray;
  68.               end;
  69.   PortPtr = 1..MaxPorts;
  70.   PortIndex = 0..MaxPorts;
  71.   PortList  = record
  72.                 top  : PortIndex;
  73.                 data : array [ PortPtr ] of PortSales;
  74.               end;
  75.  
  76.   SectorArray = array [ sector ] of SectorInfo;
  77.   TheVoid = record
  78.               dock    : SectorIndex;
  79.               notes   : NoteList;
  80.               Ports   : PortList;
  81.               sectors : SectorArray;
  82.             end;
  83.